(org-read-date): Include subgroup 5 into

	replacement text.

diff --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index db6c5611c2d1e2472675e13bdecdd32488aa64c7..53adbea78330300527715b58623e80f6550fad32 100644 (file)
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -4006,8 +4006,8 @@ used to insert the time stamp into the buffer to include the time."
                month (string-to-number (match-string 3 ans))
                day (string-to-number (match-string 4 ans)))
          (if (< year 100) (setq year (+ 2000 year)))
-         (setq ans (replace-match (format "%04d-%02d-%02d" year month day)
-                                  t t ans))))
+         (setq ans (replace-match (format "%04d-%02d-%02d\\5" year month day)
+                                  t nil ans))))
     (setq tl (parse-time-string ans)
          year (or (nth 5 tl) (string-to-number (format-time-string "%Y")))
          month (or (nth 4 tl) (string-to-number (format-time-string "%m")))